home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Development / General / MacMETH3.2.1 Folder / MacMETH3.2.1 Disk 1⁄2 / Examples / Out.MOD < prev    next >
Text File  |  1994-03-21  |  481b  |  30 lines
  1. IMPLEMENTATION MODULE Out;
  2.  
  3. IMPORT InOut;
  4.  
  5.   PROCEDURE Open;
  6.   BEGIN InOut.OpenOutput("");
  7.   END Open;
  8.  
  9.   PROCEDURE Char(ch: CHAR);
  10.   BEGIN InOut.Write(ch)
  11.   END Char;
  12.  
  13.   PROCEDURE String(str: ARRAY OF CHAR);
  14.   BEGIN InOut.WriteString(str)
  15.   END String;
  16.   
  17.   PROCEDURE Real(x: REAL; n: INTEGER);
  18.   BEGIN InOut.WriteReal(x, n)
  19.   END Real;
  20.  
  21.   PROCEDURE Int(i, n: LONGINT);
  22.   BEGIN InOut.WriteLongInt(i, SHORT(n))
  23.   END Int;
  24.  
  25.   PROCEDURE Ln;
  26.   BEGIN InOut.WriteLn
  27.   END Ln;
  28.  
  29. END Out.
  30.